home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / ab20 / ab20_archive / games / strategy / madgic-corewar-4.0.lzh / 1990 / Net.s < prev    next >
Text File  |  1992-03-10  |  1KB  |  43 lines
  1. ;
  2. ;    Warrior: Net
  3. ;  File name: Net.red
  4. ; Tournament: ICWST'90
  5. ;   Standard: CWS'88
  6. ;     Author: Sasha Wait
  7. ;     Branch: Lisgar Collegiate Institute
  8. ;
  9.           JMP seek
  10. srch      DAT 0              1
  11.           JMP trap
  12. seek      ADD #61            srch
  13.           JMZ seek           <srch
  14.           MOV srch           scn
  15. detour    JMP newScan
  16. newScan   SPL scan           scan
  17.           MOV rstLoop        detour
  18. rstLoop   JMP -3
  19. stn       SPL stn            stn
  20. net       JMP @net           -2
  21. splt      SPL trap           trap
  22.           MOV zero           <smash
  23.           JMP splt
  24. trap      DJN splt           count
  25.           MOV zero           splt
  26. scn       DAT 0              1024
  27. zero      DAT 0              0
  28. plcTrap   ADD #1             scn
  29.           MOV net            @scn
  30.           SUB scn            @scn
  31.           JMP next
  32. stun      MOV stn            @scn
  33. next      JMN stun           <scn
  34.           MOV stn            @scn
  35.           JMP scan
  36. reset     MOV #-16           scn
  37. scan      JMZ scan           <scn
  38.           CMP smash          @scn
  39.           JMP plcTrap
  40. count     JMP reset          64
  41. smash     JMP reset          srch
  42.           END seek
  43.